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4=SEP=1984 ACLEDT.SRCJAEDKEYTAB.MAR; 1 (1) 


| 
1 -TITL i AEDSKEY TABLE = Default key definition table | 
¢ 4 /v04-000/ 
i “ENA BG 
3 5 FRAME RAA AERA 
3* ® 
§ f 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * | 
00 : :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
000 9 is ALL RIGHTS RESERVED. . | 
0 11 be THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND od * 
0 3 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0 15 ;* INCLUSION OF THE ABOVE Spit NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
88 8 TRANSFERRED. * 
é ® 
itd 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
88 9 * CORPORATION. “ 
0000 § 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Boos «8S ie : | 
88 — ITITIIIITI TIS TIT T TTT IIIT iii ii titi iii iiititiiiiiiiiit, 
00 
$383 BB in 
9009 0 : FACILITY: Miscellaneous utilities 
9000 : ; ABSTRACT: 
0000 4: This module contains the default definitions for the ACL editor 
0000 5 8 actions. These are replaced by those read in from the initialization 
88 — file if there is one. | 
9000 z ENVIRONMENT : 
88 re : VAX/VMS operating system, user mode utilities. | 
000 4g i-- 
8 383 
000 a2 : AUTHOR: L. Mark Pilant CREATION DATE: 24-Jan-1983 16:30 
009 oF ; MODIFIED BY: | 
000 8 v03-005 LMP0233 Mark Pilant, 16-Apr-1984 15:52 
4 29 3 Make the LK201 DO" key the same as ‘ENTER’. 
0900 50 : v03-004 LMP0213 Mark Pilant 24-Mar-1984 12:23 
8 ꝛ Add support for th ote and unlocking the object’s ACL. 
0900 5 : v03-003 LMPO0193 L. Mark Pilant 14-Feb-1984 10:20 
88 Add reset, quit, and delete Foe to the defined actions. 
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- Default key definition table 


"Qo$Ep=1986 2:50:58 EACLEDS.SRCIAEDREvTAB.maR:1 28° fy 


v03-002 LMP0172 L. Mark Pilant, 28-Nov-1983 12:11 
Numerous bug fixes, support for VT2xx terminals, and a 
session keystroke logger. 


v03-001 LMP0103 L. Mark Pilant, 21-Apr-1983 12:13 
Add support for HIDDEN and PROTECTED ACEs. 


Wr—OO0e 
Sete Se Oe Oe Se Oe Ge 
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- Default key definition table 15-SEP-1984 AX/VMS Mac - 
— ge 93:80:58 PARC EOS eααινν man:1 2a ds | 


7 3 MACROS TO DEFINE STRUCTURES 
63 AEDSLCLDEF 
59 «MACRO KEY DEF KEY_CODE_NAME, KEY_FLAGS KEY TEXT,CO_C1 
i CUR_FL :"NOTE THE CURRENT POSITION 
* KEY? “A. KEY _CODE_NAME’= . : SET ADDRESS OF THE ENTRY 
$ 3 3 SET UP THE VARIOUS LINK POINTERS IN THE QUEUE ENTRY 
00 8 o® iy FLINK 
09 oe LONG R_FLINK 
0 7 = 6 “FLINK 
0 . LONG START FLINK 
00 1 2 CUR FCINKSKEY —L_BLINK 
8 LONG ẽᷣũt V. r̃i inx 
00 af START FLINK*KEY _L_BLINK 
8 -LONG CUR_FCINK 
0000 $ 3 PLACE THE INFORMATION IN THE DEFINITION BLOCK 
000 8 2 CUR =FLINKOKEY B_ACTION 
000 9 -BYTE Key. — C 
00 0 2 FCINKSREY 8 FLAGS 
000 91 -BYTE —4 LAGS 
880 3 2 CUR FLINK*KEY. T_TEXT 
9000 3 3 SPECIAL CASE = RUBOUT CHARACTER 
000 IF IDN <KEY_TEXT>,RUBOUT 
$000 3 .BYT Kore 
0000 98 .ENDC; ION <KEY_TEXT> ,RUBOUT 
0000 99 
3 CONTROL CHARACTERS 
1 ¢ IF NE KEY FLAGS&KEY M CTRLCHAR 
1 BYTE  “*A\NTKEY_TEXT'(="Xx4 
' : -ENDC; NE KEY_FLAGS&KEY_M_CTRLCHAR 
196 STANDARD ESCAPE SEQUENCES (TYPICALLY VT52) 
108 .IF NE KEY FLAGS&KEY_M_ESCSEQ 
109 -BYTE x16 
110 ASCII 9 KEY 
1} -ENDC; NE KEY EICAGSEKCY _M_ESCSEQ 
1 ; VT1IXX & VT2XX TERMINAL ESCAPE SEQUENCES 
115 IF NE Key FLAGS&KEY_M_CSI 
16 iF 10N A: cB. 
11 BYTE co x58 
118 oIFF 
11 -BYIE “*x9B 
1 9 -ENDC; IDN cO_¢1,c0 
1 ASCII PREY TEXT'\ 
' § -ENDC; NE KEY FCAGSEKEY MCS! 
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DSKEY_TABLE ~- Default key definition table 15“SEP=-1984 23:36: AX/ 4 
vO0-000 z t78Ep-198e 53:54:58 EACLEDT 2%" (5) 


| 
126 .IF NE KEY_FLAGSGKEY_M_SS3 | 
125 .IF IDN Mal if 6 * | 
1 g BYTE ny NGF 
} * BYTE “x8F | 
159 .enoc: BN c0.¢1.C0 | 
1 0 SASCIL §\"REY TEXT"\ 
-ENDC; NE KEY_FCAGS&KEY_M_SS3 | 
1 § ; SET THE SIZE OF THE DEFINITION BLOCK | 
135 CUR FEREELEE® .-CUR_F 
CUR =TEXTSIZEs tui ReBCOCKSIZE-KEY. T_TEXT | 
138 “BYTE CUR” ret derte * 
139 CUR-FLINK*CUR_BLOCKSIZE+<8-<CUR_BLOCKSIZE&7>> 
140 PREV FLINK=” CUR_FCINK 
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= Default key definition table 


000 


KEY_TABLE:: 
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-PSECT AED_KEY_DEF ,NOEXE,RD,WRT,QUAD 


KEY_ TABLE ,KEY_TABLE 


KEY_TABLE 
START_FLINK 


; DEFINE BASIC KEYPAD KEYS. 


GOLD. <KEY_M_SS3>, »<P>,C 
GOLD. <KEY“M_$S3>, <P>, 
GOLD. <KEY"M-ESCSEQ>, <P> 
ELP,<KEY_M_SS5>, <a>, 
HELP, <KEY-M-SS3>,<Q>,(1 
HELP, <KEY-M_ESCSEQ>, <a> 
—— 
HELP, <KEY_M CSI>,<28~ ro 1 
ELPFMT,<REY_M_GOLDREQ'KEY_M_SS3>,<Q>,C0 
HELPFMT , <KEY_M_GOLDREQ!KEY_M_SS3>,<Q>,C1 
LPFMT,<KEY_M_ESCSEQ>,<Q> 
HELPEMT -<KEV-M-CS1> .<26°> C0 
HELPFMT ,<KEY_M CSI>,<26°>,C 
IND_STR,<KEY_A_GOLDREQ!KEY_M_SS3>,<R>,CO 
F IND~STR,<KEY-M_GOLDREQ‘KEY-M-SS3>,<R>,C1 
F IND-STR, <KEY_M_GOLDREQ!KEY-M_ESCSEQ>,<?x> 
FIND STR, <KEY_M_CSI>,<1->,CO 
FIND_STR,<KEY_M_CSI>,<1~>,C1 
F IND“NXT, <KEY_M_SS3>,<R>,CO 
FIND_NXT,<KEY_M_SS5>,<R>,C1 
F IND-NXT, <KEY-M-ESCSEQ>,<?x> 
DEL_ACE,<KEY_A_SS3>,<S>,CO 
DEL_ACE,<KEY_M_SS3>,<S>,C1 
DEL “ACE ,<KEY-M-ESCSEQ>, <R> 
UNDEL ACE .<KEV-M_GOLDREG!KEY _M_SS3>.<$>.C0 
UNDEL “ACE , <KEY-M_GOLDREQ‘KEY-M-SS3>,<S>,C1 
UNDEL “ACE . <KEY-M~GOLDREQ'KEY—M_ESCSEQ>,<R> 
SEL_FIELD,<KEY_M_SS35>,<w>,C 
SELF IELD.<KEY-M_SS3>,<w>.C1 
SEL“F IELD,<KEY_M_ESCSEQ> -<?u> 
ADV"FIELD. <KEV_M_GOLDREQ/KEY_M_SS3>.<w>, co 
ADV=F IELD. <KEY-M~GOLDREQiKEY-M-SS3>,<w>,C1 
ADVF IELD. <KEY-M~GOLDREQiKEY-M-ESCSEQ>,<?w> 
DEL-WRD,<KEY_M_SS3>,<m>,C 
DEL“WRD.<KEY"M~SS3>,<m>,C 
DEL =WRD <KEY M_ESCSEQ>, <?y 
UNDEL_WRD,<KEY"M_GOLDREQ'KEY_M 83 —X 
— 
UNDEL ~WRD. <KEY"M~GOLDREQiKEY"M-ESCSEQ>,<?y> 
ADVANTE ,<KEY_M_SS5>,<t>,C 
ADVANCE , <KEY-M-SS3>,<t>,C 
VANCE , <KEY-M-ESCSEQ>,<?t> 
BACKUP, <KEY_A_SS3>,<u>,C 
BACKUP, <KEY"M_S53>, <u>, 
BACKUP, <KEY-M-ESCSEQ> <u> 
BOTTOM, <KEY_M_GOLDREQ'KEY_M_SS3>,<t>,CO 
BOTTOM, <KEY~M~GOLDREQ'KEY"M~SS3>,<t>,C1 
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ERT,<KEY_M_GOLDREQ!KEY_M_S 
ERT, <KEY_M_GOLDREQ!KEY M_E 
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: THE REMAINING MISCELLANEOUS KEYS 


OVERSTRIKE genera CTRLCHAR> , A 
MOVE _BOL ,<KEY_M_CTRLCHAR 
MOVE _BOL,<KEY_M_CSI>, 


ACLEDT. sre 


cro V04-00 
Chae AEDKEYTAB.MAR; 1 


<24">.C 
MOV “BOL REV-R-ESID gt 
RUB_ORD.<KEY_A_CTRLCHAR>,J 
RUB_WRD , <KE =AACS1>«< 2-2-0 
RUB-WRD ,<KEY-M_CSI>,<257>,C 
REFRESH. <KEY—-M_CTRL th HAR>, a 
REFRESH. <KEY” M-CTRLCHAR 
RESET, <K Y-M7GOLDREG'KEY. x. CTRLCHAR>,R 
RESET, <KEY-M ~GOLDREQ!KEY~ “M~CTRLCHAR>,W 
BOL, <KEY"M_CTRLCHAR>;U~ 
RUB BOL , <KEY-M_CTRLCHAR>,X 
UNDEL_LIN, <KEY"M_GOLDREQ'KEY_M_CTRLCHAR>, u 
UNDEL-LIN,<KEY-M-GOLDREQ!KEY_M_CTRLCHAR>,X 
EXIT, 2KEY_M_CTRLCHAR>,2 
EXIT <KEY-MCCSI>.<1775.C0 
EXIT, <KEY-M_CSI>,<177>,C1 
EXIT, <KEY_M_CSI>,<19">,CO 
EXIT, <KEY-M_CSI>,<197>,C1 
EXIT. <KEY-M-CS1>.<21">.C0 
EXIT, <KEY_M_CSI>,<21°>,C1 
QUIT. <KEY"M~GOLDREQ!KEY_M_CTRLCHAR>,Z 
RUB_CHR,0;ROBOUT 
DEBUG, <KEY_M_CTRLCHAR>,D 
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! Psect synopsis ! 


Cee eee ee oo es + 


PSECT name Allocation PSECT No. Attributes 


a wes 90000000 ( 0.) 00 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
AED _KEY_bEF 888 ( 2184.) 01 ¢ 1:) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC QUAD 
— wmonwermoe nen on aesscecanaen } 


; Performance indicators ! 


eececece ~ewowresonaonecnaat 


Phase Page faults CPU Time Elapsed Time 


Initialization 14 :00:00.07 :00:00.29 
Command processing 3 :00:00.69 :00: 19 
pees 1 aie dant 2 Q :00:17. ? :00: of? 
Pass 5 § 8 : 3 
Symbol table output 5 :00:00.1 :00: “* 
Psect synopsis output 7 :00.0 :00:00. 
Cross-reference output 0:00: 3-2 0:00:00. 
Assembler run totals 51 00:00:22.4 0:00:36.8 


The 
10428 23 04 pages) of virtusl memory were used to buffer the intermediate code. 


Macro Library name Macros defined 


J ACLEDT .QBJJACLEDT.MLB;1 1 
. : SYS -OBJ L1B.MLB;1 
55S$DUA28: SvSL18 STARLET.MLB;2 
TOTALS (all Libraries) 


171 GETS were required to define 1 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:AEDKEYTAB/OBJ=OBJ$:AEDKEYTAB MSRC$:AEDKEYTAB/UPDATE=(ENHS$: AEDKEYTAB) +EXECML$/LIB+LIB$:ACLEDT/LIB 
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